home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / TRANSFER.MOD < prev    next >
Text File  |  1989-01-18  |  2KB  |  51 lines
  1.                                          (* Chapter 3 - Program 8 *)
  2. MODULE Transfer;
  3.  
  4. VAR Int1,  Int2  : INTEGER;
  5.     Card1, Card2 : CARDINAL;
  6.     Real1, Real2 : REAL;
  7.     Char1, Char2 : CHAR;
  8.  
  9. BEGIN
  10.  
  11.    Int1  := 14;
  12.    Int2  := 35;
  13.    Card1 := Int1 + Int2 + 23;            (* assignment compatible *)
  14.    Card2 := Card1 - 13 * 2 + CARDINAL(Int1);   (* mixed types     *)
  15.    Card2 := Card1 - 13 * 2 + CARDINAL(Int1);   (* assignment comp *)
  16.    Int1  := Int2 * INTEGER(Card1);
  17.  
  18.    Real1 := 12.0;
  19.    Real2 := Real1 + FLOAT(Card2) * 1.112;     (* CARDINAL to REAL *)
  20.    Real2 := Real2 + FLOAT(CARDINAL(Int1));    (* INTEGER to REAL  *)
  21.  
  22. (* Int1  := TRUNC(Real1) + Int2 * 3;         Incompatible error 1 *)
  23.    Int1  := TRUNC(Real1) + CARDINAL(Int2) * 3;     (* error fixed *)
  24.    Int1  := INTEGER(TRUNC(Real1)) + Int2 * 3;      (* error fixed *)
  25.  
  26. (* Card1 := TRUNC(Real1) + Int2 * 3;         Incompatible error 2 *)
  27.    Card1 := INTEGER(TRUNC(Real1)) + Int2 * 3;      (* error fixed *)
  28.    Card1 := TRUNC(Real1) + CARDINAL(Int2) *3;      (* error fixed *)
  29.  
  30.    Char1 := "A";
  31. (* Int1  := ORD(Char1) + Int2;               Incompatible error 3 *)
  32.    Int1  := INTEGER(ORD(Char1)) + Int2;            (* error fixed *)
  33.    Int1  := ORD(Char1) + CARDINAL(Int2);           (* error fixed *)
  34.  
  35.    Card1 := ORD(Char1) + Card1;
  36.    Real2 := FLOAT(ORD(Char1)) + 1.2345;
  37.  
  38.    Char1 := CHR(TRUNC(FLOAT(ORD(Char1))));      (* Sheer Nonsense *)
  39.  
  40. END Transfer.
  41.  
  42.  
  43.  
  44.  
  45. (* Result of execution
  46.  
  47. (There is no output from this program)
  48.  
  49. *)
  50.  
  51.